Public cFiles As New colFiles
Private Type FileT
    Stxt As String
    contain As Variant
End Type
Dim H%, W%

Private Sub cmdSearch_Click()
    Dim dStart As Date
    Dim dFinish As Date
    Dim lScan As Long
    dStart = Now
    cFiles.Clear
    cFiles.LoadFiles ts.sAppend(Me.txtPath, "\") & Me.txtFileSpec.Text, Me.chkSubDirs.Value
    lScan = DateDiff("s", dStart, Now)
    dStart = Now
        Dim l As Long
        For l = 1 To cFiles.Count
            FName = (cFiles(l).sPath & cFiles(l).sNameAndExtension)
            SearchInFile FName, txtSearch4, TreeView1
        Next l
        Screen.MousePointer = vbDefault
        End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set cFiles = Nothing
End Sub
